home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMOS0697.lzh / AMOSLIST / PalProcs.Lha / PalFromIFFPic.AMOS / PalFromIFFPic.amosSourceCode
Encoding:
AMOS Source Code  |  1996-07-23  |  762 b   |  48 lines
  1. Set Accessory 
  2.  
  3. Dim C(31)
  4.  
  5. Screen Open 0,640,26,8,Hires
  6. Flash Off : Curs Off : Cls 0
  7. Screen Display 0,128,42,640,26
  8.  
  9. Input "Palette or Fade (p/f) >";A$
  10. A$=Lower$(A$)
  11.  
  12. Load Iff Fsel$(""),1
  13. Flash Off : Curs Off 
  14. Screen Hide 1
  15.  
  16. For G=0 To 31
  17.    C(G)=Colour(G)
  18. Next 
  19.  
  20. Screen 0
  21.  
  22. Call Editor 29
  23. If A$="p"
  24.    B$="Palette "
  25.    For G=0 To 31
  26.       B$=B$+Hex$(C(G),3)+","
  27.    Next 
  28.    B$=Left$(B$,Len(B$)-1)
  29.    Call Editor 71,,B$
  30. End If 
  31. If A$="f"
  32.    B$="Fade "
  33.    Print 
  34.    Input "Fade speed > ";A
  35.    Input "Wait (y/n) >";C$
  36.    C$=Lower$(C$)
  37.    B$=B$+Str$(A)-" "+","
  38.    For G=0 To 31
  39.       B$=B$+Hex$(C(G),3)+","
  40.    Next 
  41.    B$=Left$(B$,Len(B$)-1)
  42.    If C$="y"
  43.       B$=B$+" : Wait "+Str$(A*15)-" "
  44.    End If 
  45.    Call Editor 71,,B$
  46. End If 
  47.  
  48. Screen Close 1 : Screen Close 0